home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / eparrayinitdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  321 b   |  18 lines
  1. program EPArrayInitDemo;
  2.  
  3. {$W no-field-name-problem} { avoid a warning by GPC }
  4.  
  5. const
  6.   MyStringsCount = 5;
  7.  
  8. type
  9.   Ident = String (20);
  10.  
  11. var
  12.   MyStrings : array [1 .. MyStringsCount] of Ident value
  13.     [1 : 'export'; 2 : 'implementation'; 3 : 'import';
  14.      4 : 'interface'; 5 : 'module'];
  15.  
  16. begin
  17. end.
  18.